home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro5 / theorem.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-04-12  |  1.7 KB  |  47 lines
  1. 10  CLS:KEY OFF
  2. 20  LOCATE 5,28:COLOR 9:PRINT"THE PYTHAGOREAN THEOREM":COLOR 7
  3. 30  LOCATE 11,25: COLOR 15:PRINT"R = <UNK! {00FB}>(X2 - X1)<UNK! {FD20}>+ <UNK! {00FB}>(Y2 - Y1)<UNK! {FD22}>:COLOR 7
  4. 40  LOCATE 10,24:PRINT CHR$(218):LOCATE 10,54:PRINT CHR$(191)
  5. 50  LOCATE 12,24:PRINT CHR$(192):LOCATE 12,54:PRINT CHR$(217)
  6. 60  LOCATE 10,25:FOR X=1 TO 29:PRINT CHR$(196);:NEXT X
  7. 70  LOCATE 12,25:FOR X=1 TO 29:PRINT CHR$(196);:NEXT X
  8. 80  LOCATE 11,24:PRINT CHR$(179):LOCATE 11,54:PRINT CHR$(179)
  9. 90  LOCATE 20,21:PRINT"Do you wish to enter (";:COLOR 31:PRINT"2";:COLOR 7:PRINT") or (";:COLOR 31:PRINT"4";:COLOR 7:PRINT") numbers?"
  10. 100  NUM$ = INKEY$
  11. 110  NUM = VAL(NUM$)
  12. 120  IF NUM = 2 THEN 150
  13. 130  IF NUM = 4 THEN 220
  14. 140  GOTO 100
  15. 150  CLS:LOCATE 8,5:INPUT"What is the value of the first term ";X1
  16. 160  LOCATE 9,5:INPUT"What is the value of the second term ";Y1
  17. 170  R = ((X1^2 + Y1^2)^0.5):X=R
  18. 180  X = INT((R + 0.000499999)*1000)/1000
  19. 190  PRINT
  20. 200  COLOR 15:LOCATE 11,5:PRINT"The value computed for "X1 "and "Y1 "is " X"." :COLOR 7
  21. 210  GOSUB 360
  22. 220  CLS:LOCATE 6,25: COLOR 15:PRINT"R = <UNK! {00FB}>(X2 - X1)<UNK! {FD20}>+ <UNK! {00FB}>(Y2 - Y1)<UNK! {FD22}>:COLOR 7
  23. 230  LOCATE 5,24:PRINT CHR$(218):LOCATE 5,54:PRINT CHR$(191)
  24. 240  LOCATE 7,24:PRINT CHR$(192):LOCATE 7,54:PRINT CHR$(217)
  25. 250  LOCATE 5,25:FOR X=1 TO 29:PRINT CHR$(196);:NEXT X
  26. 260  LOCATE 7,25:FOR X=1 TO 29:PRINT CHR$(196);:NEXT X
  27. 270  LOCATE 6,24:PRINT CHR$(179):LOCATE 6,54:PRINT CHR$(179)
  28. 280  LOCATE 11,15:INPUT"What is the value for the first 'x' value (X1) ";X1
  29. 290  LOCATE 12,15:INPUT"What is the value of the second 'x' value (X2) ";X2
  30. 300  LOCATE 13,15:INPUT"What is the value for the first 'y' value (Y1) ";Y1
  31. 310  LOCATE 14,15:INPUT"What is the value of the second 'y' value (Y2) ";Y2
  32. 320  R = ((X2-X1)^2 + (Y2-Y1)^2)^0.5
  33. 330  X = INT((R + 0.000499999)*1000)/1000
  34. 340  COLOR 15:LOCATE 17,15:PRINT"The values "X1","X2","Y1", and "Y2"="X"
  35. 350  GOSUB 360
  36. 360  LOCATE 25,22:COLOR 7:PRINT"Press ";:COLOR 31:PRINT"E";:COLOR 7:PRINT" to exit program ";:COLOR 31:PRINT"R";:COLOR 7:PRINT" to return"
  37. 370  D$=INKEY$:IF D$="E" OR D$="e" THEN 400
  38. 380  IF D$="r" OR D$="R" THEN 10
  39. 390  GOTO 370
  40. 400  LOCATE 25:PRINT STRING$(80,255)
  41. 410  COLOR 15:LOCATE 25,23:PRINT"Are you sure you want to exit now?":COLOR 7
  42. 420  N$=INKEY$:IF N$="Y" OR N$="y" THEN 450
  43. 430  IF N$="N" OR N$="n" THEN 10
  44. 440  GOTO 420
  45. 450  CLS:RUN"files."
  46. 460  RETURN
  47.